home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / dms-gepackt / 1_96 / apd-1-96-2.dms / apd-1-96-2.adf / DB 2.9 / Examples / ARexxDemos / Expand.db < prev    next >
Text File  |  1994-09-03  |  241b  |  10 lines
  1. /* Rexxprogram for db that expands some shortcuts  */
  2. Options Results
  3. GETFIELD
  4. select
  5.     when result = '1' then PUTFIELD 'First'
  6.     when result = '2' then PUTFIELD 'Second'
  7.     when result = '3' then PUTFIELD 'Third'
  8.     otherwise PUTFIELD result
  9. end
  10.